************************************************************************************** Do-file for all tables and figures included in                                    ** "International Organizations Going Public?                                        ** An Event History Analysis of Public Communication Reforms 1950-2015"              * * NOTE: tables are generated using the package "Estout"; graphs are based on        ** simulations using the package "Clarify" (Tomz et al.)                             **************************************************************************************use ComIOReformISQ_replication.dta, clear***************************************** Fig1  *********************************************************************graph bar (mean) MASS100 NONSTATE100 EXPERT100 COORMON100 ADVICE100 RESEARCH100 STRATEGY100, over(DECADE, relabel(1 "1956-1965" 2 "1966-1975" 3 "1976-1985" 4 "1986-1995" 5 "1996-2005" 6 "2006-2015")) stack linet(line) legend(order(7  "Planning" 6 "Research" 5 "Advice" 4 "Coordination&Monitoring" 3 "Expert Communication" 2 "Nonstate Actor Communication " 1 "General Public Communication ") colfirst)graph save Graph ComIO_ISQ_Fig1.gph, replace***************************************** Fig2  *********************************************************************graph bar (mean) N_Admin N_Intergovernmental N_Others, over(DECADE, relabel(1 "1956-1965" 2 "1966-1975" 3 "1976-1985" 4 "1986-1995" 5 "1996-2005" 6 "2006-2015")) stack linet(line) yscale(range(0 3)) legend(order(1 "Administrative" 2 "Intergovernmental" 3 "Other") colfirst)graph save Graph ComIO_ISQ_Fig2.gph, replace***************************************** Fig3  *********************************************************************collapse (sum) REF_STRAT, by (ID_IO DECADE)replace REF_STRAT =100 if REF_STRAT >0graph bar (mean) REF_STRAT, over(DECADE, relabel(1 "1956-1965" 2 "1966-1975" 3 "1976-1985" 4 "1986-1995" 5 "1996-2005" 6 "2006-2015")) stack linet(line) legend(off) ytitle("")graph save Graph ComIO_ISQ_Fig3.gph, replace***************************************** Fig4  *********************************************************************use ComIOReformISQ_replication.dta, cleartwoway (scatter ID_IO Year [fweight = REF_ALL])gr_edit plotregion1.plot1.style.editstyle marker(size(vtiny)) gr_edit yaxis1.plotregion.yscale.reverse.setstyle, style(yes)gr_edit yaxis1.style.editstyle majorstyle(use_labels(yes) tickangle(horizontal) tickstyle(textstyle(size(vsmall)))) editcopygr_edit yaxis1.style.editstyle majorstyle() editcopygr_edit yaxis1.reset_rule 48, tickset(major) ruletype(suggest) gr_edit yaxis1.title.style.editstyle size(zero) editcopygr_edit xaxis1.reset_rule , tickset(major) ruletype(minmax) gr_edit xaxis1.title.style.editstyle size(zero) editcopygraph save Graph ComIO_ISQ_Fig4.gph, replace***************************************** Tab2  *********************************************************************use ComIOReformISQ_replication.dta, cleartsset ID_IO Yearstset REF_ALL_TIME, failure(REF_ALL) id(REF_EPISODE)gen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)local VAR1 social develop environ human dbudget************estimates drop _allstcox dlocal_imp_l dlocal_imp_l_lnt polity trans_acc_index dProtest_l dScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model1stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model2stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNScandal_l lnNProtest_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model3stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model4estout * using estout_tab2.txt, replace style (tab) cells(b(star fmt(3)) se(par fmt(3))) stats(p chi2 ll N N_sub N_fail N_clust, fmt(%9.3f %9.3f %9.3f %9.0f %9.0f)) legend starlevels(# 0.10 * 0.05 ** 0.01 *** 0.001)***************************************** Fig5  *********************************************************************use ComIOReformISQ_replication.dta, cleartsset ID_IO Yearstset REF_ALL_TIME, failure(REF_ALL) id(REF_EPISODE)gen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)stcox dlocal_imp_l dlocal_imp_l_lnt  c.polity##c.trans_acc_index social develop environ human dbudget PProtest_l PScandal_l, vce(cluster ID_IO) strata(strata2) nohrmat list e(b)mat def V = e(V)mat list Vgen combcoef =_b[dlocal_imp_l] + ln(_t)*_b[dlocal_imp_l_lnt]gen se_combcoef = sqrt(V[2,2] + (ln(_t))^2*V[2,2] +2*ln(_t)*V[2,2])gen combcoef_lo = combcoef - 1.96*se_combcoefgen combcoef_hi = combcoef + 1.96*se_combcoeftwoway kdensity _t, recast(area) yaxis(2) ytitle("Combined Coefficient", axis(1)) ytitle("Density of Obs.(IO-Years)", axis(2)) xtitle("Time since last reform or establishment of IO in Years") || line combcoef _t, yaxis(1) clpattern(solid) clwidth(medium) clcolor(black)  sort || line combcoef_lo _t, yaxis(1) clpattern(vshortdash) clwidth(medium) clcolor(black)  sort || line combcoef_hi _t, yaxis(1) clpattern(vshortdash) clwidth(medium) clcolor(black)  sort || , scheme(s2mono) graphregion(fcolor(white)) legend(off)graph save Graph ComIO_ISQ_Fig5.gph, replace***************************************** Fig6  *********************************************************************use ComIOReformISQ_replication.dta, cleartsset ID_IO Yearstset REF_ALL_TIME, failure(REF_ALL) id(REF_EPISODE)gen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)gen polityXTAI = polity*trans_acc_indexstcox polity trans_acc_index polityXTAI dlocal_imp_l dlocal_imp_l_lnt social develop environ human dbudget PProtest_l PScandal_l, vce(cluster ID_IO) strata(strata2) nohr generate MV=((_n-1000)/100) replace  MV=. if MV < 0 replace  MV=. if MV > 1 matrix b=e(b)  matrix V=e(V) scalar b1=b[1,1]  scalar b2=b[1,2] scalar b3=b[1,3] scalar varb1=V[1,1]  scalar varb2=V[2,2]  scalar varb3=V[3,3] scalar covb1b3=V[1,3]  scalar covb2b3=V[2,3] scalar list b1 b2 b3 varb1 varb2 varb3 covb1b3 covb2b3 gen conb=b1+b3*MV gen conse=sqrt(varb1+varb3*(MV^2)+2*covb1b3*MV) gen a=1.96*conse gen upper=conb+a gen lower=conb-a graph twoway line conb   MV, clwidth(medium) clcolor(blue) clcolor(black) ||   line upper  MV, clpattern(vshortdash) clwidth(thin) clcolor(black) || line lower MV, clpattern(vshortdash) clwidth(thin) clcolor(black) || , legend(off) ylabel(,nogrid) yline(0, lcolor(black) lpattern(tight_dot)) xtitle("TransparencyAccountabilityIndex", size(3) ) xsca(titlegap(2)) ysca(titlegap(2)) ytitle("Marginal Effect of Democratic IO-Membership", size(3)) scheme(s2mono) graphregion(fcolor(white)) xline(0, lpattern(tight_dot)) graph save Graph ComIO_ISQ_Fig6.gph, replace***************************************** Tab A.1 *******************************************************************use ComIOReformISQ_replication.dta, cleartabstat Year, statistics( count min max ) by(ID_IO) ***************************************** Tab A.3 *******************************************************************sum polity trans_acc_index dlocal_imp_l social develop environ human dProtest_l dScandal_l lnNProtest_l lnNScandal_l PProtest_l PScandal_l dbudget, separator(0) f***************************************** Tab A.4 *******************************************************************use ComIOReformISQ_replication.dta, clearlocal VAR1 social develop environ human dbudgetestimates drop _all*****stset REF_TASKS_TIME, failure(REF_TASKS) id(REF_EPISODES)gen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model5stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNScandal_l lnNProtest_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model6stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model7******stset REF_UNITS_TIME, failure(REF_UNITS) id(REF_EPISODES)drop dlocal_imp_l_lntgen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model8stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNScandal_l lnNProtest_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model9stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model10******stset REF_STRAT_TIME, failure(REF_STRAT) id(REF_EPISODES)drop dlocal_imp_l_lntgen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model11stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNScandal_l lnNProtest_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model12stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1', vce(cluster ID_IO) strata(strata2) nohr estimates store Model13estout * using estout_tabA4.txt, replace style (tab) cells(b(star fmt(3)) se(par fmt(3))) stats(p chi2 ll N N_sub N_fail N_clust, fmt(%9.3f %9.3f %9.3f %9.0f %9.0f)) legend starlevels(# 0.10 * 0.05 ** 0.01 *** 0.001)***************************************** Tab A.5 *******************************************************************use ComIOReformISQ_replication.dta, clearestimates drop _alltsset ID_IO Yearstset REF_ALL_TIME, failure(REF_ALL) id(REF_EPISODE)gen dlocal_imp_l_lnt = dlocal_imp_l*log(_t)local VAR1 social develop environ human dbudgetstcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1'  ICT, vce(cluster ID_IO) strata(strata2) nohr estimates store Model14stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNProtest_l lnNScandal_l `VAR1' ICT, vce(cluster ID_IO) strata(strata2) nohr estimates store Model15stcox dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1' ICT, vce(cluster ID_IO) strata(strata2) nohr estimates store Model16******logit REF_ALL dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index dProtest_l dScandal_l `VAR1' T Tx2 Tx3, vce(cluster ID_IO) estimates store Model17logit REF_ALL dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index lnNProtest_l lnNScandal_l `VAR1' T Tx2 Tx3, vce(cluster ID_IO) estimates store Model18logit REF_ALL dlocal_imp_l dlocal_imp_l_lnt c.polity##c.trans_acc_index PProtest_l PScandal_l `VAR1' T Tx2 Tx3, vce(cluster ID_IO) estimates store Model19estout * using estout_tabA5.txt, replace style (tab) cells(b(star fmt(3)) se(par fmt(3))) stats(p chi2 ll N N_sub N_fail N_clust, fmt(%9.3f %9.3f %9.3f %9.0f %9.0f)) legend starlevels(# 0.10 * 0.05 ** 0.01 *** 0.001)**** done ******************************